home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / amos / amos_col.lha / AMOS-COL / Info.amos / Info.amosSourceCode
AMOS Source Code  |  1980-01-10  |  1KB  |  58 lines
  1. 'By Delta/Opium
  2. '
  3. '�ukasz ï¿½elezny
  4. 'ul. W�oska 4D/6 
  5. '42-612 Tarnowskie G�ry  
  6. 'Poland
  7. '
  8. Break Off 
  9. If Prg Under<>1 Then ERRS
  10. Set Accessory 
  11. Screen Open 0,640,100,4,Hires
  12. Paper 0 : Pen 2 : Curs Off : Cls 0
  13.  
  14. Locate 0,0 : Centre "Info by DELTA OF CYBERTECH."
  15. Locate 2,2 : Print "Program name                :  "; : Ask Editor 2 : 
  16. If Param$="" Then Print "New project" : Else Print Param$
  17. Locate 2,3 : Print "Number of lines             : "; : Ask Editor 5 : Print Param
  18. Locate 2,4 : Print "Current Line                : "; : Ask Editor 1 : Print Param
  19. Locate 2,5 : Print "X position                  : "; : Ask Editor 3 : Print Param
  20. Locate 2,6 : Print "Y position                  : "; : Ask Editor 4 : Print Param
  21. Locate 2,7 : Print "Free memory for program     : "; : Ask Editor 10 : Print Param
  22. Locate 2,9 : Centre "Press any key..."
  23.  
  24. Y=127
  25.  
  26. For O=1 To 85
  27.    If Y=77 Then Exit 
  28.    Y=Y-1
  29.    Screen Display 0,,Y,,O*2
  30.    Wait Vbl 
  31. Next 
  32.  
  33. Wait Key 
  34.  
  35. Y=77
  36.  
  37. For O=50 To 1 Step -1
  38.    If Y=127 Then Exit 
  39.    Y=Y+1
  40.    Screen Display 0,,Y,,O*2
  41.    Wait Vbl 
  42. Next 
  43.  
  44. For A=0 To 7
  45.    Trap Screen Close A
  46. Next A
  47.  
  48. End 
  49.  
  50. Procedure ERRS
  51.    Default 
  52.    Curs Off : Flash Off : Cls 0 : Hide 
  53.    Paper 0
  54.    Centre At(,10)+"This program is only for accesory"
  55.    Centre At(,12)+"Press any key"
  56.    Wait Key 
  57.    End 
  58. End Proc